home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / alienbreed3d2_src / cheesesauce / andy.lha / CONTROLLOOP.s < prev    next >
Text File  |  1995-09-15  |  47KB  |  2,401 lines
  1. ; Main control loop.
  2. ; This is the very outer loop of the program.
  3.  
  4. ; What needs to be done and when?
  5.  
  6. ; Black screen start.
  7. ; Load title music
  8. ; Load title screen
  9. ; Fade up title screen
  10. ; Select options
  11. ; Play game.
  12.  
  13. ; Playing the game involves allocating screen and
  14. ; level memory, loading the level, loading the
  15. ; samples, loading the wall graphics, playing the
  16. ; level, deallocating the screen memory....
  17.  
  18. ; Control part should therefore:
  19.  
  20. ; 1. Load Title Music
  21. ; 2. Load title screen
  22. ; 3. Fade up title screen.
  23. ; 4. Add 'loading' message
  24. ; 5. Load samples and walls
  25. ; 6: LOOP START
  26. ; 7. Option select screens
  27. ; 8. Free music mem, allocate level mem.
  28. ; 9. Load level
  29. ;10. Play level with options selected
  30. ;11. Reload title music
  31. ;12. Reload title screen
  32. ;13. goto 6
  33.  
  34. INTROTUNEADDR: dc.l 0
  35. INTROTUNENAME: dc.b 'ab3:sounds/abreed3d.med',0
  36.  even
  37. TITLESCRNADDR: dc.l 0
  38. TITLESCRNNAME: dc.b 'AB3D1:includes/titlescrnraw',0
  39.  even
  40. TITLESCRNNAME2: dc.b 'AB3D2:includes/titlescrnraw',0
  41.  even
  42. OPTSPRADDR: dc.l 0
  43.  
  44.  
  45.  
  46. ProtValA: dc.l 0
  47. ProtValB: dc.l 0
  48. ProtValC: dc.l 0
  49. ProtValD: dc.l 0
  50. ProtValE: dc.l 0
  51. ProtValF: dc.l 0
  52. ProtValG: dc.l 0
  53. ProtValH: dc.l 0
  54. ProtValI: dc.l 0
  55. ProtValJ: dc.l 0
  56. ProtValK: dc.l 0
  57. ProtValL: dc.l 0
  58. ProtValM: dc.l 0
  59. ProtValN: dc.l 0
  60.  
  61.  
  62. KVALTOASC:
  63.         Dc.b    " `  "," 1  "," 2  "," 3  "
  64.         dc.b    " 4  "," 5  "," 6  "," 7  "
  65.         dc.b    " 8  "," 9  "
  66.         Dc.b    " 0  "," -  "," +  "," \  "
  67.         dc.b     '    ','    '," Q  "," W  "
  68.         dc.b    " E  "," R  "
  69.         Dc.b    " T  "," Y  "," U  "," I  "
  70.         dc.b    " O  "," P  "," [  "," ]  "
  71.         dc.b    '    ','KP1 '
  72.         Dc.b    'KP2 ','KP3 '," A  "," S  "
  73.         dc.b    " D  "," F  "," G  "," H  "
  74.         dc.b    " J  "," K  "
  75.         Dc.b    " L  "," ;  "," #  ",'    '
  76.         dc.b    '    ','KP4 ','KP5 ','KP6 '
  77.         dc.b    '    '," Z  "
  78.         Dc.b    " X  "," C  "," V  "," B  "
  79.         dc.b    " N  "," M  "," ,  "," .  "
  80.         dc.b     " /  ",'    '
  81.         Dc.b    '    ','KP7 ','KP8 ','KP9 '
  82.         dc.b    'SPC ','<-- ','TAB ','ENT '
  83.         dc.b    'RTN ','ESC '
  84.         Dc.b    'DEL ','    ','    ','    '
  85.         dc.b    'KP- ','    ','UCK ','DCK '
  86.         dc.b    'RCK ','LCK '
  87.         Dc.b    'FK1 ','FK2 ','FK3 ','FK4 '
  88.         dc.b    'FK5 ','FK6 ','FK7 ','FK8 '
  89.         dc.b    'FK9 ','FK0 '
  90.         Dc.b    'KP( ','KP) ','KP/ ','KP* '
  91.         dc.b    'KP+ '
  92.         dc.b    'HLP ','LSH ','RSH '
  93.         dc.b    'CPL ','CTL '
  94.         Dc.b    'LAL ','RAL ','LAM ','RAM '
  95.         dc.b    '    ','    ','    ','    '
  96.         dc.b    '    ','    '
  97.         Dc.b    '    ','    ','    ','    '
  98.         dc.b    '    ','    ','    ','    '
  99.         dc.b    '    ','    '
  100.  
  101.  even
  102.  
  103. FINISHEDLEVEL: dc.w 0
  104.  
  105.  
  106. START:
  107.  
  108.  move.b #'n',mors
  109.  
  110.   
  111.  
  112. ************************************88
  113. * TAKE OUT WHEN PLAYING MODULE AGAIN
  114. ********************************
  115. ProtChkBLev1:
  116.     PRSDF
  117.     PRSDE
  118. ************************************
  119.  
  120. ; move.l #PROTCALLENC,a0
  121. ; move.l #(ENDPROT-PROTCALLENC)/4-1,d1
  122. ; move.l #$75055345,d0
  123. ;codeitup:
  124. ; sub.l d0,(a0)+
  125. ; ror.l #1,d0
  126. ; dbra d1,codeitup
  127. ; rts
  128.  
  129. ProtChkCLev1:
  130.  PRSDA
  131.  
  132.  move.w #$7201,titleplanes
  133.  
  134.  move.l 4.w,a6
  135.  move.l #doslibname,a1
  136.  moveq #0,d0
  137.  jsr -552(a6)
  138.  move.l d0,doslib
  139.  PRSDS
  140.  jsr stuff
  141.  
  142.  jsr _InitLowLevel
  143.  
  144.  jsr CLEARTITLEPAL
  145.  
  146. ProtChkDLev1:
  147.  PRSDT
  148.  
  149.  move.w #$20,$dff1dc
  150.  move.l #titlecop,$dff080
  151.  PRSDV
  152.  move.w #$87c0,$dff000+dmacon
  153.  move.w #$8020,$dff000+dmacon
  154. ProtChkMLev1:
  155.  move.w $dff006,d0
  156.  lea RVAL2-100(pc),a0
  157.  add.w d0,100(a0)
  158.  
  159.  bsr GETTITLEMEM
  160. ProtChkELev1:
  161.  PRSDU
  162.  bsr CLROPTSCRN
  163.  
  164.  bsr SETUPTITLESCRN
  165.  
  166. ; jsr _InitPlayer
  167.  
  168. ; move.l #INTROTUNENAME,a0
  169. ; jsr _LoadModule
  170. ; move.l d0,INTROTUNEADDR
  171.  PRSDY
  172. ; move.l d0,a0
  173. ; jsr _InitModule
  174.  
  175. ; move.l INTROTUNEADDR,a0
  176. ; jsr _PlayModule
  177. ProtChkFLev1:
  178.  PRSDa
  179.  bsr LOADTITLESCRN
  180.  
  181.  move.w #0,FADEVAL
  182.  move.w #63,FADEAMOUNT
  183.  bsr FADEUPTITLE
  184.  PRSDB
  185.  jsr LOADWALLS
  186.  jsr LOADFLOOR
  187.  jsr LOADOBS
  188.  PRSDZ
  189.  
  190.  move.w #31,FADEAMOUNT
  191.  PRSDC
  192.  bsr FADEDOWNTITLE 
  193.  
  194.  IFEQ CD32VER 
  195.  bsr ASKFORDISK
  196.  ENDC
  197.  IFNE CD32VER
  198.  PRSDD
  199.  ENDC
  200.  
  201.  jsr LOAD_SFX
  202. ; jsr _StopPlayer
  203.  PRSDW
  204.  PRSDX
  205. ; jsr _RemPlayer
  206.  
  207.  
  208.  IFNE CD32VER
  209.  move.l doslib,a6
  210.  move.l #115,d1
  211.  jsr -198(a6)
  212.  ENDC
  213.  
  214. ; move.l #newblag,$80
  215. ; trap #0
  216. ; bra JUMPPASTIT
  217. ; rts
  218. ;
  219. ;newblag:
  220.  
  221.  
  222. ProtChkGLev1:
  223. ; bsr PROTSETUP
  224.  bsr DEFAULTGAME
  225.  
  226. ; move.l INTROTUNEADDR,a0
  227. ; jsr _UnLoadModule
  228.  
  229. ; IFEQ CD32VER
  230. ; jsr KInt_Init
  231. ; ENDC
  232. ProtChkHLev1:
  233. ; rte
  234. ;
  235. ;JUMPPASTIT:
  236. ; 
  237.  
  238. BACKTOMENU:
  239.  
  240.  jsr CLEARKEYBOARD
  241.  
  242.  cmp.b #'s',mors
  243.  beq.s BACKTOSLAVE
  244.  cmp.b #'m',mors
  245.  beq.s BACKTOMASTER
  246.  bsr READMAINMENU
  247.  bra DONEMENU
  248. BACKTOMASTER:
  249.  bsr MASTERMENU
  250.  bra DONEMENU
  251. BACKTOSLAVE:
  252.  bsr SLAVEMENU
  253. DONEMENU:
  254.  
  255.  bsr WAITREL
  256.  
  257. ; IFEQ CD32VER
  258. ; move.l OLDKINT,$68.w
  259. ; ENDC
  260.  
  261.  bsr CLRSPRITES
  262.  
  263.  move.w #31,FADEAMOUNT
  264.  bsr FADEUPTITLE
  265.  move.w #63,FADEAMOUNT
  266.  bsr FADEDOWNTITLE
  267.  
  268.  move.w #$0201,titleplanes
  269.  
  270.  bsr RELEASETITLEMEM
  271.   
  272.  jsr LOADBOTPIC
  273.   
  274.  clr.b FINISHEDLEVEL
  275.  
  276.  move.w #0,PLR1s_angpos
  277.  move.w #0,PLR2s_angpos
  278.  move.w #0,PLR1_angpos
  279.  move.w #0,PLR2_angpos
  280.  move.b #0,PLR1_GunSelected
  281.  move.b #0,PLR2_GunSelected
  282.  
  283. **************************8
  284.  clr.b NASTY
  285. *************************** 
  286.  jsr PLAYTHEGAME
  287.  
  288.  bsr FREEBOTMEM 
  289.  
  290. ; bra QUITTT
  291.  
  292.  tst.b FINISHEDLEVEL
  293.  beq dontusestats
  294.  bsr CALCPASSWORD
  295. dontusestats:
  296.  bsr PASSLINETOGAME
  297.  bsr GETSTATS
  298.  
  299.  bsr GETTITLEMEM
  300.  bsr CLROPTSCRN
  301.  bsr SETUPTITLESCRN
  302.  
  303.  bsr LOADTITLESCRN2
  304.  move.w #$7201,titleplanes
  305.  
  306.  move.w #$20,$dff1dc
  307.  move.l #titlecop,$dff080
  308.  move.w #$87c0,$dff000+dmacon
  309.  move.w #$8020,$dff000+dmacon 
  310.  
  311.  move.w #0,FADEVAL
  312.  move.w #63,FADEAMOUNT
  313.  bsr FADEUPTITLE
  314.  
  315.  move.w #31,FADEAMOUNT
  316.  bsr FADEDOWNTITLE 
  317.  
  318. ; IFEQ CD32VER
  319. ; jsr KInt_Init
  320. ; ENDC
  321.  
  322.  bra BACKTOMENU
  323.  
  324. QUITTT:
  325.  
  326.  move.l LEVELDATA,d1
  327.  move.l d1,a1
  328.  move.l #120000,d0
  329.  move.l 4.w,a6
  330.  jsr -210(a6)
  331.  
  332.  move.l TEXTSCRN,d1
  333.  move.l d1,a1
  334.  move.l #10240*2,d0
  335.  move.l 4.w,a6
  336.  jsr -210(a6)
  337.  
  338.  jsr RELEASEWALLMEM
  339.  jsr RELEASESAMPMEM
  340.  jsr RELEASEFLOORMEM
  341.  jsr RELEASEOBJMEM
  342.   
  343.  rte
  344.  
  345. SSTACK: dc.l 0
  346.  
  347. ; KEY OPTIONS:
  348. CONTROLBUFFER:
  349. turn_left_key:
  350.  dc.b $4f
  351. turn_right_key:
  352.  dc.b $4e
  353. forward_key:
  354.  dc.b $4c
  355. backward_key:
  356.  dc.b $4d
  357. fire_key:
  358.  dc.b $65
  359. operate_key:
  360.  dc.b $40
  361. run_key:
  362.  dc.b $61
  363. force_sidestep_key:
  364.  dc.b $67
  365. sidestep_left_key:
  366.  dc.b $39
  367. sidestep_right_key:
  368.  dc.b $3a
  369. duck_key:
  370.  dc.b $22
  371. look_behind_key:
  372.  dc.b $28
  373.  
  374. templeftkey: dc.b 0
  375. temprightkey: dc.b 0
  376. tempslkey: dc.b 0 
  377. tempsrkey: dc.b 0
  378.  
  379.  even 
  380.  
  381. GETSTATS:
  382. ; CHANGE PASSWORD INTO RAW DATA
  383.  
  384.  move.b PASSBUFFER,d0
  385.  and.w #$7f,d0
  386.  move.w d0,PLR1_energy
  387.  move.b PASSBUFFER+1,d0
  388.  btst #7,d0
  389.  sne PLR1_GunData+32+7
  390.  btst #6,d0
  391.  sne PLR1_GunData+32*2+7
  392.  btst #5,d0
  393.  sne PLR1_GunData+32*4+7
  394.  btst #4,d0
  395.  sne PLR1_GunData+32*7+7
  396.  and.w #%1111,d0
  397.  move.w d0,MAXLEVEL
  398.  move.b PASSBUFFER+2,d0
  399.  and.w #$7f,d0
  400.  lsl.w #3,d0
  401.  move.w d0,PLR1_GunData
  402.  move.b PASSBUFFER+3,d0
  403.  and.w #$7f,d0
  404.  lsl.w #3,d0
  405.  move.w d0,PLR1_GunData+32
  406.  move.b PASSBUFFER+4,d0
  407.  and.w #$7f,d0
  408.  lsl.w #3,d0
  409.  move.w d0,PLR1_GunData+32*2
  410.  move.b PASSBUFFER+5,d0
  411.  and.w #$7f,d0
  412.  lsl.w #3,d0
  413.  move.w d0,PLR1_GunData+32*4
  414.  move.b PASSBUFFER+6,d0
  415.  and.w #$7f,d0
  416.  lsl.w #3,d0
  417.  move.w d0,PLR1_GunData+32*7
  418.  rts
  419.  
  420.  
  421. SETPLAYERS:
  422.  
  423.  move.w PLOPT,d0
  424.  add.b #'a',d0
  425.  move.b d0,LEVA
  426.  move.b d0,LEVB
  427.  move.b d0,LEVC
  428.  
  429.  cmp.b #'s',mors
  430.  beq SLAVESETUP
  431.  cmp.b #'m',mors
  432.  beq MASTERSETUP
  433.  st NASTY
  434. onepla:
  435.  rts
  436.  
  437. NASTY: dc.w 0
  438.  
  439. MASTERSETUP:
  440.  bsr TWOPLAYER
  441.  clr.b NASTY
  442.  move.w PLOPT,d0
  443.  jsr SENDFIRST
  444.  rts
  445.  
  446. SLAVESETUP:
  447.  bsr TWOPLAYER
  448.  CLR.B NASTY
  449.  jsr RECFIRST
  450.  move.w d0,PLOPT
  451.  add.b #'a',d0
  452.  move.b d0,LEVA
  453.  move.b d0,LEVB
  454.  move.b d0,LEVC
  455.  rts
  456.      
  457. ********************************************************
  458.  
  459. ASKFORDISK:
  460.  lea RVAL1+300(pc),a0
  461.  lea RVAL2+900(pc),a1
  462.  PRSDD
  463.  move.w #3,OptScrn
  464.  bsr DRAWOPTSCRN
  465.  
  466. ProtChkNLev1:
  467. .wtrel:
  468.  btst #7,$bfe001
  469.  beq.s .wtrel
  470.  
  471. wtclick:
  472.  add.w #$235,-300(a0)
  473.  add.w #$4533,-900(a0)
  474.  btst #6,$bfe001
  475.  bne.s wtclick
  476.  
  477.  rts
  478.  
  479. CLRSPRITES: 
  480.  move.l #nullspr,d0
  481.  move.w d0,tsp0l
  482.  move.w d0,tsp1l
  483.  move.w d0,tsp2l
  484.  move.w d0,tsp3l
  485.  move.w d0,tsp4l
  486.  move.w d0,tsp5l
  487.  move.w d0,tsp6l
  488.  move.w d0,tsp7l
  489.  swap d0
  490.  move.w d0,tsp0h
  491.  move.w d0,tsp1h
  492.  move.w d0,tsp2h
  493.  move.w d0,tsp3h
  494.  move.w d0,tsp4h
  495.  move.w d0,tsp5h
  496.  move.w d0,tsp6h
  497.  move.w d0,tsp7h 
  498.  rts
  499.  
  500. ********************************************************
  501.  
  502. READMAINMENU:
  503.  
  504.  
  505.  move.b #'n',mors
  506.  
  507.  move.w MAXLEVEL,d0
  508.  
  509.  move.l #CURRENTLEVELLINE,a1
  510.  muls #40,d0
  511.  move.l #LEVEL_OPTS,a0
  512.  add.l d0,a0
  513.  bsr PUTINLINE
  514.  
  515.  
  516.  
  517. ; Stay here until 'play game' is selected.
  518.  
  519.  move.w #0,OptScrn
  520.  bsr DRAWOPTSCRN
  521.  move.w #1,OPTNUM
  522.  
  523.  bsr HIGHLIGHT
  524.  
  525.  
  526.  
  527.  bsr WAITREL
  528. .rdlop:
  529.  
  530.  bsr CHECKMENU
  531.  tst.w d0
  532.  blt.s .rdlop
  533.  
  534.  bne .noopt
  535.  
  536.  bra MASTERMENU
  537.  
  538. .noopt:
  539.  
  540.  cmp.w #1,d0
  541.  beq playgame
  542.  
  543.  cmp.w #2,d0
  544.  bne .nocontrol
  545.  
  546.  bsr CHANGECONTROLS
  547.  
  548.  move.w #0,OptScrn
  549.  bsr DRAWOPTSCRN
  550.  move.w #0,OPTNUM
  551.  
  552.  bsr HIGHLIGHT
  553.  
  554.  bsr WAITREL
  555.  bra .rdlop
  556.  
  557. .nocontrol:
  558.  
  559.  cmp.w #3,d0
  560.  bne .nocred
  561.  bsr SHOWCREDITS
  562.  move.w #0,OptScrn
  563.  bsr DRAWOPTSCRN
  564.  move.w #1,OPTNUM
  565.  
  566.  bsr HIGHLIGHT
  567.  
  568.  bsr WAITREL
  569.  bra .rdlop
  570.  
  571.  
  572. .nocred:
  573.  
  574.  cmp.w #4,d0
  575.  bne playgame
  576.  bsr WAITREL
  577.  
  578.  move.l #PASSWORDLINE+12,a0
  579.  moveq #15,d2
  580. .clrline:
  581.  move.b #32,(a0)+
  582.  dbra d2,.clrline 
  583.  move.w #0,OptScrn
  584.  bsr DRAWOPTSCRN
  585.  
  586.  IFEQ CD32VER
  587.  clr.b lastpressed
  588.  move.l #PASSWORDLINE+12,a0
  589.  move.w #0,d1
  590. .ENTERPASS:
  591.  tst.b lastpressed
  592.  beq .ENTERPASS
  593.  move.b lastpressed,d2
  594.  move.b #0,lastpressed
  595.  move.l #KVALTOASC,a1
  596.  
  597.  cmp.l #'<-- ',(a1,d2.w*4)
  598.  bne .nodel
  599.  
  600.  tst.b d1
  601.  beq .nodel
  602.  
  603.  subq #1,d1
  604.  move.b #32,-(a0)
  605.  movem.l d0-d7/a0-a6,-(a7)
  606.  bsr JUSTDRAWIT
  607.  movem.l (a7)+,d0-d7/a0-a6
  608.  bra .ENTERPASS
  609.  
  610. .nodel:
  611.  
  612.  cmp.l #'RTN ',(a1,d2.w*4)
  613.  beq .FORGETIT
  614.  cmp.l #'ESC ',(a1,d2.w*4)
  615.  beq .FORGETIT
  616.  move.b 1(a1,d2.w*4),d2
  617.  cmp.b #65,d2
  618.  blt .ENTERPASS
  619.  cmp.b #'Z',d2
  620.  bgt .ENTERPASS
  621.  move.b d2,(a0)+
  622.  move.w #0,OptScrn
  623.  movem.l d0-d7/a0-a6,-(a7)
  624.  bsr JUSTDRAWIT
  625.  movem.l (a7)+,d0-d7/a0-a6
  626.  add.w #1,d1
  627.  cmp.w #16,d1
  628.  blt .ENTERPASS
  629.  
  630.  ENDC
  631.  IFNE CD32VER
  632.  move.l #PASSWORDLINE+12,a0
  633.  move.w #15,d0
  634. .ENTERPASS:
  635.  bsr GETACHAR
  636.  dbra d0,.ENTERPASS
  637.  ENDC
  638.  
  639.  bsr PASSLINETOGAME
  640.  tst.w d0
  641.  bne .FORGETIT
  642.  
  643.  bsr GETSTATS
  644.  move.w MAXLEVEL,d0
  645.  move.l #CURRENTLEVELLINE,a1
  646.  muls #40,d0
  647.  move.l #LEVEL_OPTS,a0
  648.  add.l d0,a0
  649.  bsr PUTINLINE
  650.  
  651. .FORGETIT:
  652.  bsr WAITREL
  653.  bsr CALCPASSWORD
  654.  
  655.  move.w #0,OptScrn
  656.  bsr DRAWOPTSCRN
  657.  
  658.  move.w #1,OPTNUM
  659.  
  660.  bsr HIGHLIGHT
  661.  
  662.  bra .rdlop 
  663.  
  664. playgame:
  665.  
  666.  move.w MAXLEVEL,PLOPT
  667.  rts
  668.  
  669. LEVELSELECTED:
  670.  dc.w 0
  671.  
  672.  IFNE CD32VER
  673. GETACHAR:
  674.  moveq #0,d7
  675.  move.b #'A',(a0)
  676.  movem.l d0-d7/a0-a6,-(a7)
  677.  jsr JUSTDRAWIT
  678.  movem.l (a7)+,d0-d7/a0-a6
  679.  
  680. .wtnum:
  681.  btst #1,$dff00c
  682.  sne d1
  683.  btst #1,$dff00d
  684.  sne d2
  685.  btst #0,$dff00c
  686.  sne d3
  687.  btst #0,$dff00d
  688.  sne d4
  689.  
  690.  eor.b d1,d3
  691.  eor.b d2,d4
  692.  
  693.  tst.b d1
  694.  beq.s .NODELETE
  695.  cmp.w #15,d0
  696.  beq.s .NODELETE
  697.  move.b #32,(a0)
  698.  subq #1,a0
  699.  addq #1,d0
  700.  move.b (a0),d7
  701.  sub.b #'A',d7
  702.  movem.l d0-d7/a0-a6,-(a7)
  703.  jsr JUSTDRAWIT
  704.  movem.l (a7)+,d0-d7/a0-a6
  705.  jsr WAITFORNOPRESS
  706.  bra .wtnum
  707. .NODELETE
  708.  
  709.  tst.b d4
  710.  bne.s .PREVNUM
  711.  tst.b d3
  712.  bne.s .NEXTNUM
  713.  btst #7,$bfe001
  714.  bne.s .wtnum
  715.  addq #1,a0
  716.  jsr WAITFORNOPRESS
  717.  rts
  718.  
  719. .PREVNUM:
  720.  subq #1,d7
  721.  bge.s .nonegg
  722.  moveq #15,d7
  723. .nonegg:
  724.  move.b d7,d1
  725.  add.b #'A',d1
  726.  move.b d1,(a0)
  727.  movem.l d0-d7/a0-a6,-(a7)
  728.  jsr JUSTDRAWIT
  729.  movem.l (a7)+,d0-d7/a0-a6
  730.  
  731.  jsr WAITFORNOPRESS
  732.  
  733.  bra .wtnum
  734.  
  735. .NEXTNUM:
  736.  addq #1,d7
  737.  cmp.w #15,d7
  738.  ble.s .nobigg
  739.  moveq #0,d7
  740. .nobigg:
  741.  move.b d7,d1
  742.  add.b #'A',d1
  743.  move.b d1,(a0)
  744.  movem.l d0-d7/a0-a6,-(a7)
  745.  jsr JUSTDRAWIT
  746.  movem.l (a7)+,d0-d7/a0-a6
  747.  jsr WAITFORNOPRESS
  748.  bra .wtnum
  749.  rts
  750.  ENDC
  751.  
  752.  
  753. MASTERMENU:
  754.  
  755.  move.b #'m',mors
  756.  
  757.  move.w #0,LEVELSELECTED
  758.  
  759.  move.w #0,d0 
  760.  move.l #CURRENTLEVELLINEM,a1
  761.  muls #40,d0
  762.  move.l #LEVEL_OPTS,a0
  763.  add.l d0,a0
  764.  bsr PUTINLINE
  765.  
  766. ; Stay here until 'play game' is selected.
  767.  
  768.  move.w #4,OptScrn
  769.  bsr DRAWOPTSCRN
  770.  move.w #1,OPTNUM
  771.  
  772.  bsr HIGHLIGHT
  773.  
  774.  bsr WAITREL
  775. .rdlop:
  776.  bsr CHECKMENU
  777.  tst.w d0
  778.  blt.s .rdlop
  779.  bsr WAITREL
  780.  
  781.  cmp.w #1,d0
  782.  bne.s .nonextlev
  783.  
  784.  move.w LEVELSELECTED,d0
  785.  add.w #1,d0
  786.  cmp.w MAXLEVEL,d0
  787.  blt .nowrap
  788.  moveq #0,d0
  789. .nowrap:
  790.  move.w d0,LEVELSELECTED
  791.  move.l #CURRENTLEVELLINEM,a1
  792.  muls #40,d0
  793.  move.l #LEVEL_OPTS,a0
  794.  add.l d0,a0
  795.  bsr PUTINLINE
  796.  bsr JUSTDRAWIT
  797.  bra .rdlop
  798.  
  799. .nonextlev:
  800.  cmp.w #2,d0
  801.  beq .playgame
  802.  
  803.  cmp.w #0,d0
  804.  bne .noopt
  805.  
  806.  bra SLAVEMENU
  807.  
  808. .noopt:
  809.  
  810.  cmp.w #3,d0
  811.  bne .nocontrol
  812.  
  813.  bsr CHANGECONTROLS
  814.  
  815.  move.w #4,OptScrn
  816.  bsr DRAWOPTSCRN
  817.  move.w #0,OPTNUM
  818.  
  819.  bsr HIGHLIGHT
  820.  
  821.  bsr WAITREL
  822.  bra .rdlop
  823.  
  824. .nocontrol:
  825.  
  826. .playgame
  827.  
  828.  move.w LEVELSELECTED,PLOPT
  829.  rts
  830.  
  831. SLAVEMENU:
  832.  
  833.  move.b #'s',mors
  834.  
  835. ; Stay here until 'play game' is selected.
  836.  
  837.  move.w #5,OptScrn
  838.  bsr DRAWOPTSCRN
  839.  move.w #1,OPTNUM
  840.  
  841.  bsr HIGHLIGHT
  842.  
  843.  bsr WAITREL
  844. .rdlop:
  845.  bsr CHECKMENU
  846.  tst.w d0
  847.  blt.s .rdlop
  848.  bsr WAITREL
  849.  
  850.  cmp.w #1,d0
  851.  beq .playgame
  852.  
  853.  cmp.w #0,d0
  854.  bne .noopt
  855.  
  856.  bra READMAINMENU
  857.  
  858. .noopt:
  859.  
  860.  cmp.w #2,d0
  861.  bne .nocontrol
  862.  
  863.  bsr CHANGECONTROLS
  864.  
  865.  move.w #0,OptScrn
  866.  bsr DRAWOPTSCRN
  867.  move.w #0,OPTNUM
  868.  
  869.  bsr HIGHLIGHT
  870.  
  871.  bsr WAITREL
  872.  bra .rdlop
  873.  
  874. .nocontrol:
  875. .playgame:
  876.  
  877.  rts
  878.  
  879. TWOPLAYER:
  880.  move.w #0,OldEnergy
  881.  move.w #127,Energy
  882.  jsr EnergyBar
  883.  
  884.  move.w #63,OldAmmo
  885.  move.w #0,Ammo
  886.  jsr AmmoBar
  887.  move.w #0,OldAmmo
  888.  
  889.  move.w #127,PLR1_energy
  890.  move.w #127,PLR2_energy 
  891.  move.w #160,PLR1_GunData    ; 10 shots pistol
  892.  st PLR1_GunData+7
  893.  
  894.  st.b PLR1_GunData+32+7
  895.  move.w #80*4,PLR1_GunData+32
  896.  
  897.  st.b PLR1_GunData+64+7
  898.  move.w #80*4,PLR1_GunData+64
  899.  
  900.  st.b PLR1_GunData+32*3+7
  901.  move.w #80*4,PLR1_GunData+32*3
  902.  
  903.  st.b PLR1_GunData+32*4+7
  904.  move.w #80*4,PLR1_GunData+32*4
  905.  
  906.  st.b PLR1_GunData+32*7+7
  907.  move.w #80*4,PLR1_GunData+32*7
  908.  
  909.  move.b #0,PLR1_GunSelected
  910.  
  911.  move.w #160,PLR2_GunData    ; 10 shots pistol
  912.  st PLR2_GunData+7
  913.  st.b PLR2_GunData+32+7
  914.  move.w #80*4,PLR2_GunData+32
  915.  
  916.  st.b PLR2_GunData+64+7
  917.  move.w #80*4,PLR2_GunData+64
  918.  
  919.  st.b PLR2_GunData+32*3+7
  920.  move.w #80*4,PLR2_GunData+32*3
  921.  
  922.  st.b PLR2_GunData+32*4+7
  923.  move.w #80*4,PLR2_GunData+32*4
  924.  
  925.  st.b PLR2_GunData+32*7+7
  926.  move.w #80*4,PLR2_GunData+32*7
  927.  move.b #0,PLR2_GunSelected
  928.  rts
  929.  
  930. newdum:
  931.  rts
  932.  
  933. DEFAULTGAME:
  934.  move.w #0,MAXLEVEL
  935.  move.w #5,CHEATNUM
  936.  move.l #CHEATFRAME-200000,CHEATPTR
  937.  
  938.  move.w #0,OldEnergy
  939.  move.w #127,Energy
  940.  jsr EnergyBar
  941.  
  942.  move.w #63,OldAmmo
  943.  move.w #0,Ammo
  944.  jsr AmmoBar
  945.  move.w #0,OldAmmo
  946.  
  947.  move.w #127,PLR1_energy
  948.  move.w #127,PLR2_energy 
  949.  move.w #160,PLR1_GunData    ; 10 shots pistol
  950.  st PLR1_GunData+7
  951.  clr.b PLR1_GunData+32+7
  952.  clr.w PLR1_GunData+32
  953.  clr.b PLR1_GunData+64+7
  954.  clr.w PLR1_GunData+64
  955.  clr.b PLR1_GunData+32*3+7
  956.  clr.w PLR1_GunData+32*3
  957.  clr.b PLR1_GunData+32*4+7
  958.  clr.w PLR1_GunData+32*4
  959.  clr.b PLR1_GunData+32*7+7
  960.  clr.w PLR1_GunData+32*7
  961.  move.b #0,PLR1_GunSelected
  962.  
  963. ProtChkILev1:
  964.  move.l #RealTable-2000,a3
  965.  move.l #PROTCALC-5000,a1
  966.  move.l #ASKFORPROT-10000,a2
  967.  move.l #PROTCALLENC-800,a4
  968.  adda.w #800,a4
  969.  jsr (a4)
  970.  
  971. ************************************************
  972. * TEMPORARY MEASURE: REMOVE BEFORE RELEASE *****
  973. ************************************************
  974.  
  975. ProtChkLLev1:
  976.  tst.w protA
  977.  bne.s .noreset
  978.  move.l #0,a7
  979. .noreset:
  980.  
  981. ************************************************
  982.  
  983.  move.w #160,PLR2_GunData    ; 10 shots pistol
  984.  st PLR2_GunData+7
  985.  clr.b PLR2_GunData+32+7
  986.  clr.w PLR2_GunData+32
  987.  clr.b PLR2_GunData+64+7
  988.  clr.w PLR2_GunData+64
  989.  clr.b PLR2_GunData+32*3+7
  990.  clr.w PLR2_GunData+32*3
  991.  clr.b PLR2_GunData+32*4+7
  992.  clr.w PLR2_GunData+32*4
  993.  clr.b PLR2_GunData+32*7+7
  994.  clr.w PLR2_GunData+32*7
  995.  move.b #0,PLR2_GunSelected
  996.  
  997.  bsr CALCPASSWORD
  998.  
  999.  rts
  1000.  
  1001. CHKPROT: dc.w 0
  1002.  
  1003. GETPARITY:
  1004.  move.w #6,d3
  1005. .calcparity:
  1006.  btst d3,d0
  1007.  beq.s .nochange
  1008.  bchg #7,d0
  1009. .nochange:
  1010.  dbra d3,.calcparity
  1011.  rts
  1012.  
  1013. CHECKPARITY:
  1014.  move.w #6,d3
  1015.  move.b #$0,d2
  1016. .calcparity:
  1017.  btst d3,d0
  1018.  beq.s .nochange
  1019.  bchg #7,d2
  1020. .nochange:
  1021.  dbra d3,.calcparity
  1022.  move.b d0,d1
  1023.  and.b #$80,d1
  1024.  eor.b d1,d2
  1025.  sne.s d5
  1026.  rts
  1027.  
  1028. CALCPASSWORD:
  1029.  move.b PLR1_energy+1,d0
  1030.  bsr GETPARITY
  1031.  move.b d0,PASSBUFFER
  1032.  moveq #0,d0
  1033.  tst.b PLR1_GunData+32+7
  1034.  sne d0
  1035.  lsl.w #1,d0
  1036.  tst.b PLR1_GunData+64+7
  1037.  sne d0
  1038.  lsl.w #1,d0
  1039.  tst.b PLR1_GunData+32*4+7
  1040.  sne d0
  1041.  lsl.w #1,d0
  1042.  tst.b PLR1_GunData+32*7+7
  1043.  sne d0
  1044.  lsr.w #3,d0
  1045.  and.b #%11110000,d0
  1046.  or.b MAXLEVEL+1,d0
  1047.  move.b d0,PASSBUFFER+1
  1048.  eor.b #%10110101,d0
  1049.  neg.b d0
  1050.  add.b #50,d0
  1051.  move.b d0,PASSBUFFER+7
  1052.  
  1053.  move.w PLR1_GunData,d0
  1054.  lsr.w #3,d0
  1055.  bsr GETPARITY
  1056.  move.b d0,PASSBUFFER+2
  1057.  move.w PLR1_GunData+32,d0
  1058.  lsr.w #3,d0
  1059.  bsr GETPARITY
  1060.  move.b d0,PASSBUFFER+3
  1061.  move.w PLR1_GunData+32*2,d0
  1062.  lsr.w #3,d0
  1063.  bsr GETPARITY
  1064.  move.b d0,PASSBUFFER+4
  1065.  move.w PLR1_GunData+32*4,d0
  1066.  lsr.w #3,d0
  1067.  bsr GETPARITY
  1068.  move.b d0,PASSBUFFER+5
  1069.  move.w PLR1_GunData+32*7,d0
  1070.  lsr.w #3,d0
  1071.  bsr GETPARITY
  1072.  move.b d0,PASSBUFFER+6
  1073.  
  1074.  move.w #3,d0
  1075.  move.l #PASSBUFFER,a0
  1076.  move.l #PASSBUFFER+8,a1
  1077.  move.l #PASS,a2
  1078.  moveq #0,d4
  1079. mixemup:
  1080.  move.b (a0)+,d1
  1081.  move.b -(a1),d2
  1082.  not.b d2
  1083.  moveq #0,d3
  1084.  lsr.b #1,d1
  1085.  addx.w d3,d3
  1086.  lsr.b #1,d2
  1087.  addx.w d3,d3
  1088.  lsr.b #1,d1
  1089.  addx.w d3,d3
  1090.  lsr.b #1,d2
  1091.  addx.w d3,d3
  1092.  lsr.b #1,d1
  1093.  addx.w d3,d3
  1094.  lsr.b #1,d2
  1095.  addx.w d3,d3
  1096.  lsr.b #1,d1
  1097.  addx.w d3,d3
  1098.  lsr.b #1,d2
  1099.  addx.w d3,d3
  1100.  lsr.b #1,d1
  1101.  addx.w d3,d3
  1102.  lsr.b #1,d2
  1103.  addx.w d3,d3
  1104.  lsr.b #1,d1
  1105.  addx.w d3,d3
  1106.  lsr.b #1,d2
  1107.  addx.w d3,d3
  1108.  lsr.b #1,d1
  1109.  addx.w d3,d3
  1110.  lsr.b #1,d2
  1111.  addx.w d3,d3
  1112.  lsr.b #1,d1
  1113.  addx.w d3,d3
  1114.  lsr.b #1,d2
  1115.  addx.w d3,d3
  1116.  move.w d3,(a2)+
  1117.  
  1118.  dbra d0,mixemup
  1119.  
  1120.  move.l #PASSWORDLINE+12,a0
  1121.  move.l #PASS,a1
  1122.  move.w #7,d0
  1123. putinpassline:
  1124.  move.b (a1),d1
  1125.  and.b #%1111,d1
  1126.  add.b #65,d1
  1127.  move.b d1,(a0)+
  1128.  move.b (a1)+,d1
  1129.  lsr.b #4,d1
  1130.  and.b #%1111,d1
  1131.  add.b #65,d1
  1132.  move.b d1,(a0)+
  1133.  dbra d0,putinpassline
  1134.  rts
  1135.  
  1136. PASSLINETOGAME:
  1137.  move.l #PASSWORDLINE+12,a0
  1138.  move.l #PASS,a1
  1139.  move.w #7,d0
  1140. getbuff:
  1141.  move.b (a0)+,d1
  1142.  move.b (a0)+,d2
  1143.  sub.b #65,d1
  1144.  sub.b #65,d2
  1145.  and.b #%1111,d1
  1146.  and.b #%1111,d2
  1147.  lsl.b #4,d2
  1148.  or.b d2,d1
  1149.  move.b d1,(a1)+
  1150.  dbra d0,getbuff
  1151.  
  1152.  move.l #PASS,a0
  1153.  move.l #PASSBUFFER,a1
  1154.  move.l #PASSBUFFER+8,a2
  1155.  move.w #3,d0
  1156.  moveq #0,d4
  1157. unmix:
  1158.  move.w (a0)+,d1
  1159.  moveq #0,d2
  1160.  moveq #0,d3
  1161.  lsr.w #1,d1
  1162.  addx.w d3,d3
  1163.  lsr.w #1,d1
  1164.  addx.w d2,d2
  1165.  lsr.w #1,d1
  1166.  addx.w d3,d3
  1167.  lsr.w #1,d1
  1168.  addx.w d2,d2
  1169.  lsr.w #1,d1
  1170.  addx.w d3,d3
  1171.  lsr.w #1,d1
  1172.  addx.w d2,d2
  1173.  lsr.w #1,d1
  1174.  addx.w d3,d3
  1175.  lsr.w #1,d1
  1176.  addx.w d2,d2
  1177.  lsr.w #1,d1
  1178.  addx.w d3,d3
  1179.  lsr.w #1,d1
  1180.  addx.w d2,d2
  1181.  lsr.w #1,d1
  1182.  addx.w d3,d3
  1183.  lsr.w #1,d1
  1184.  addx.w d2,d2
  1185.  lsr.w #1,d1
  1186.  addx.w d3,d3
  1187.  lsr.w #1,d1
  1188.  addx.w d2,d2
  1189.  lsr.w #1,d1
  1190.  addx.w d3,d3
  1191.  lsr.w #1,d1
  1192.  addx.w d2,d2
  1193.  not.b d3
  1194.  move.b d3,-(a2)
  1195.  move.b d2,(a1)+
  1196.  dbra d0,unmix
  1197.  
  1198.  move.b PASSBUFFER,d0
  1199.  bsr CHECKPARITY
  1200.  tst.b d5
  1201.  bne illega
  1202.  move.b PASSBUFFER+2,d0
  1203.  bsr CHECKPARITY
  1204.  tst.b d5
  1205.  bne illega
  1206.  move.b PASSBUFFER+3,d0
  1207.  bsr CHECKPARITY
  1208.  tst.b d5
  1209.  bne illega
  1210.  move.b PASSBUFFER+4,d0
  1211.  bsr CHECKPARITY
  1212.  tst.b d5
  1213.  bne illega
  1214.  move.b PASSBUFFER+5,d0
  1215.  bsr CHECKPARITY
  1216.  tst.b d5
  1217.  bne illega
  1218.  move.b PASSBUFFER+6,d0
  1219.  bsr CHECKPARITY
  1220.  tst.b d5
  1221.  bne illega
  1222.  
  1223.  move.b PASSBUFFER+1,d0
  1224.  eor.b #%10110101,d0
  1225.  neg.b d0
  1226.  add.b #50,d0
  1227.  cmp.b PASSBUFFER+7,d0
  1228.  bne illega
  1229.  
  1230.  move.w #0,d0
  1231.  rts
  1232.  
  1233. illega:
  1234.  
  1235.  move.w #-1,d0
  1236.  
  1237.  rts
  1238.  
  1239. PASSBUFFER:
  1240.  ds.b 8
  1241.  
  1242. CHECKBUFFER: ds.b 8
  1243.  
  1244. PASS:
  1245.  ds.b 16
  1246.  
  1247. **************************************************
  1248.  
  1249. CHANGECONTROLS:
  1250.  
  1251.  move.w #6,OptScrn
  1252.  bsr DRAWOPTSCRN
  1253.  move.w #0,OPTNUM
  1254.  bsr HIGHLIGHT
  1255.  bsr WAITREL
  1256.  
  1257. .rdlop:
  1258.  bsr CHECKMENU
  1259.  tst.w d0
  1260.  blt.s .rdlop
  1261.  
  1262.  cmp.w #12,d0
  1263.  beq .backtomain
  1264.  
  1265.  move.l #KEY_LINES,a0
  1266.  move.w d0,d1
  1267.  muls #40,d1
  1268.  add.l d1,a0
  1269.  add.w #32,a0
  1270.  move.l #$20202020,(a0)
  1271.  movem.l d0/a0,-(a7)
  1272.  bsr JUSTDRAWIT
  1273.  movem.l (a7)+,d0/a0 
  1274.  
  1275.  clr.b lastpressed
  1276.  
  1277. .wtkey
  1278.  tst.b lastpressed
  1279.  beq .wtkey
  1280.  
  1281.  move.l #CONTROLBUFFER,a1
  1282.  moveq #0,d1
  1283.  move.b lastpressed,d1
  1284.  move.b d1,(a1,d0.w)
  1285.  move.l #KVALTOASC,a1
  1286.  move.l (a1,d1.w*4),(a0)
  1287.  bsr JUSTDRAWIT
  1288.  bsr WAITREL
  1289.  bra .rdlop
  1290.  
  1291. .backtomain:
  1292.  rts
  1293.  
  1294. **************************************************
  1295.  
  1296.  
  1297. MAXLEVEL: dc.w 0
  1298.  
  1299. SHOWCREDITS:
  1300.  move.w #2,OptScrn
  1301.  bsr DRAWOPTSCRN
  1302.  move.w #0,OPTNUM
  1303.  bsr HIGHLIGHT
  1304.  
  1305.  bsr WAITREL
  1306.  
  1307. .rdlop:
  1308.  bsr CHECKMENU
  1309.  tst.w d0
  1310.  blt.s .rdlop
  1311.  
  1312.  bra READMAINMENU
  1313.  
  1314. HELDDOWN:
  1315.  dc.w 0
  1316.  
  1317. WAITREL:
  1318.  
  1319.  movem.l d0/d1/d2/d3,-(a7)
  1320.  
  1321.  move.l #KeyMap,a5
  1322. WAITREL2:
  1323.  btst #7,$bfe001
  1324.  beq.s WAITREL2
  1325.  
  1326.  IFEQ CD32VER
  1327.  tst.b $40(a5)
  1328.  bne.s WAITREL2
  1329.  tst.b $44(a5)
  1330.  bne.s WAITREL2
  1331.  tst.b $4c(a5)
  1332.  bne.s WAITREL2
  1333.  tst.b $4d(a5)
  1334.  bne.s WAITREL2
  1335.  ENDC
  1336.  
  1337.  btst #1,$dff00c
  1338.  sne d0
  1339.  btst #1,$dff00d
  1340.  sne d1
  1341.  btst #0,$dff00c
  1342.  sne d2
  1343.  btst #0,$dff00d
  1344.  sne d3
  1345.  
  1346.  eor.b d0,d2
  1347.  eor.b d1,d3
  1348.  tst.b d2
  1349.  bne.s WAITREL2
  1350.  tst.b d3
  1351.  bne.s WAITREL2
  1352.  
  1353.  
  1354.  movem.l (a7)+,d0/d1/d2/d3
  1355.  rts
  1356.  
  1357. PUTINLINE:
  1358.  moveq #39,d0
  1359. pill
  1360.  move.b (a0)+,(a1)+
  1361.  dbra d0,pill
  1362.  rts
  1363.  
  1364. CHECKMENU:
  1365.  btst #1,$dff00c
  1366.  sne d0
  1367.  btst #1,$dff00d
  1368.  sne d1
  1369.  btst #0,$dff00c
  1370.  sne d2
  1371.  btst #0,$dff00d
  1372.  sne d3
  1373.  
  1374.  eor.b d0,d2
  1375.  eor.b d1,d3
  1376.  
  1377.  move.l #KeyMap,a5
  1378.  move.b $4c(a5),d0
  1379.  move.b $4d(a5),d1
  1380.  or.b d1,d3
  1381.  or.b d0,d2
  1382.  
  1383.  move.w OptScrn,d0
  1384.  move.l #MENUDATA,a0
  1385.  move.l 4(a0,d0.w*8),a0    ; opt data
  1386.  
  1387.  move.w OPTNUM,d0
  1388.  
  1389.  tst.b d2
  1390.  beq.s NOPREV
  1391.  
  1392.  
  1393.  sub.w #1,d0
  1394.  bge.s NOPREV
  1395.  
  1396.  move.w #0,d0 
  1397.  
  1398. NOPREV:
  1399.  
  1400.  tst.b d3
  1401.  beq.s NONEXT
  1402.  
  1403.  bsr WAITREL
  1404.  
  1405.  add.w #1,d0
  1406.  tst.w (a0,d0.w*8)
  1407.  bge.s NONEXT
  1408.  
  1409.  subq #1,d0
  1410.  
  1411. NONEXT:
  1412.  
  1413.  cmp.w OPTNUM,d0
  1414.  beq.s .nochange
  1415.  
  1416.  bsr HIGHLIGHT
  1417.  move.w d0,OPTNUM
  1418.  bsr HIGHLIGHT
  1419.  bsr WAITREL
  1420.  
  1421. .nochange:
  1422.  
  1423.  move.w #-1,d0
  1424.  
  1425.  btst #7,$bfe001
  1426.  beq.s select
  1427.  move.b $40(a5),d1
  1428.  or.b $44(a5),d1
  1429.  tst.b d1
  1430.  beq.s noselect
  1431.  
  1432. select:
  1433.  bsr WAITREL
  1434.  move.w OPTNUM,d0
  1435. noselect:
  1436.  
  1437.  rts
  1438.  
  1439. HIGHLIGHT:
  1440.  
  1441.  SAVEREGS
  1442.  
  1443.  move.w OptScrn,d0
  1444.  move.l #MENUDATA,a0
  1445.  move.l 4(a0,d0.w*8),a0
  1446.  move.w OPTNUM,d0
  1447.  lea (a0,d0.w*8),a0
  1448.  move.w (a0)+,d0    ;left
  1449.  move.w (a0)+,d1    ;top
  1450.  move.w (a0)+,d2    ;width
  1451.  
  1452.  muls #16*8,d1
  1453.  move.l OPTSPRADDR,a1
  1454.  add.w d1,a1
  1455.  add.w #8+16,a1
  1456.  move.l #SCRTOSPR2,a5
  1457.  adda.w d0,a5
  1458.  adda.w d0,a5
  1459.  
  1460. NOTLOP:
  1461.  
  1462.  move.w (a5)+,d3
  1463.  lea (a1,d3.w),a2
  1464.  not.b (a2)
  1465.  not.b 16(a2)
  1466.  not.b 32(a2)
  1467.  not.b 48(a2)
  1468.  not.b 64(a2)
  1469.  not.b 80(a2)
  1470.  not.b 96(a2)
  1471.  not.b 112(a2)
  1472.  not.b 128(a2)
  1473.  subq #1,d2
  1474.  bgt.s NOTLOP
  1475.  
  1476.  GETREGS
  1477.  rts
  1478.  
  1479. SCRTOSPR2:
  1480. val SET 0
  1481.  REPT 6
  1482.  dc.w val+0
  1483.  dc.w val+1
  1484.  dc.w val+2
  1485.  dc.w val+3
  1486.  dc.w val+4
  1487.  dc.w val+5
  1488.  dc.w val+6
  1489.  dc.w val+7
  1490. val SET val+258*16
  1491.  ENDR
  1492.  
  1493. CLROPTSCRN:
  1494.  
  1495.  move.l #$2cdfea,d0
  1496.  move.w (a4,d0.l),d0
  1497.  add.w d0,RVAL2
  1498.  
  1499.  move.l OPTSPRADDR,a0
  1500.  lea 16(a0),a1
  1501.  lea 16+(258*16)(a0),a2
  1502.  lea 16+(258*16*2)(a0),a3
  1503.  lea 16+(258*16*3)(a0),a4
  1504.  lea 258*16(a4),a0
  1505.  
  1506.  move.w #256,d0
  1507.  moveq #0,d1
  1508. CLRLOP:
  1509.  move.l d1,(a0)+
  1510.  move.l d1,(a0)+
  1511.  move.l d1,(a0)+
  1512.  move.l d1,(a0)+
  1513.  move.l d1,(a1)+
  1514.  move.l d1,(a1)+
  1515.  move.l d1,(a1)+
  1516.  move.l d1,(a1)+
  1517.  move.l d1,(a2)+
  1518.  move.l d1,(a2)+
  1519.  move.l d1,(a2)+
  1520.  move.l d1,(a2)+
  1521.  move.l d1,(a3)+
  1522.  move.l d1,(a3)+
  1523.  move.l d1,(a3)+
  1524.  move.l d1,(a3)+
  1525.  move.l d1,(a4)+
  1526.  move.l d1,(a4)+
  1527.  move.l d1,(a4)+
  1528.  move.l d1,(a4)+
  1529.  dbra d0,CLRLOP
  1530.  
  1531.  move.l OPTSPRADDR,a0
  1532.  move.w #44*256+64,(a0)
  1533.  move.w #44*256+2,8(a0)
  1534.  add.l #258*16,a0
  1535.  
  1536.  move.w #44*256+96,(a0)
  1537.  move.w #44*256+2,8(a0)
  1538.  add.l #258*16,a0
  1539.  
  1540.  move.w #44*256+128,(a0)
  1541.  move.w #44*256+2,8(a0)
  1542.  add.l #258*16,a0
  1543.  
  1544.  move.w #44*256+160,(a0)
  1545.  move.w #44*256+2,8(a0)
  1546.  add.l #258*16,a0
  1547.  
  1548.  move.w #44*256+192,(a0)
  1549.  move.w #44*256+2,8(a0)
  1550.  
  1551.  rts
  1552.  
  1553. DRAWOPTSCRN:
  1554.  
  1555.  bsr CLROPTSCRN
  1556.  
  1557. JUSTDRAWIT:
  1558.  
  1559.  move.l #font,a0
  1560.  move.l #MENUDATA,a1
  1561.  move.w OptScrn,d0
  1562.  move.l (a1,d0.w*8),a1
  1563.  
  1564.  move.l OPTSPRADDR,a3
  1565.  add.l #16,a3
  1566.  moveq #0,d2
  1567.  
  1568.  move.w #31,d0
  1569. linelop:
  1570.  move.w #39,d1
  1571.  move.l #SCRTOSPR,a4
  1572.  move.l a3,a2
  1573. charlop:
  1574.  move.b (a1)+,d2
  1575.  lea (a0,d2.w*8),a5
  1576.  move.b (a5)+,(a2)
  1577.  move.b (a5)+,16(a2)
  1578.  move.b (a5)+,32(a2)
  1579.  move.b (a5)+,48(a2)
  1580.  move.b (a5)+,64(a2)
  1581.  move.b (a5)+,80(a2)
  1582.  move.b (a5)+,96(a2)
  1583.  move.b (a5),112(a2)
  1584.  add.w (a4)+,a2
  1585.  dbra d1,charlop
  1586.  add.w #16*8,a3
  1587.  dbra d0,linelop
  1588.  
  1589.  rts
  1590.   
  1591. SCRTOSPR:
  1592.  dc.w 1,1,1,1,1,1,1,258*16-7
  1593.  dc.w 1,1,1,1,1,1,1,258*16-7
  1594.  dc.w 1,1,1,1,1,1,1,258*16-7
  1595.  dc.w 1,1,1,1,1,1,1,258*16-7
  1596.  dc.w 1,1,1,1,1,1,1,258*16-7
  1597.  dc.w 1,1,1,1,1,1,1,258*16-7
  1598.   
  1599. OPTNUM: dc.w 0
  1600. OptScrn: dc.w 0
  1601.  
  1602. MENUDATA:
  1603. ;0
  1604.  dc.l ONEPLAYERMENU_TXT
  1605.  dc.l ONEPLAYERMENU_OPTS
  1606. ;1
  1607.  dc.l INSTRUCTIONS_TXT
  1608.  dc.l INSTRUCTIONS_OPTS
  1609. ;2
  1610.  dc.l CREDITMENU_TXT
  1611.  dc.l CREDITMENU_OPTS
  1612. ;3
  1613.  dc.l ASKFORDISK_TXT
  1614.  dc.l ASKFORDISK_OPTS
  1615. ;4
  1616. ; dc.l ONEPLAYERMENU_TXT
  1617. ; dc.l ONEPLAYERMENU_OPTS
  1618.  dc.l MASTERPLAYERMENU_TXT
  1619.  dc.l MASTERPLAYERMENU_OPTS
  1620. ;5
  1621.  dc.l SLAVEPLAYERMENU_TXT
  1622.  dc.l SLAVEPLAYERMENU_OPTS
  1623. ;6
  1624.  dc.l CONTROL_TXT
  1625.  dc.l CONTROL_OPTS
  1626. ;7
  1627.  dc.l PROTMENU_TXT
  1628.  dc.l CONTROL_OPTS
  1629.  
  1630. ASKFORDISK_TXT:
  1631. ;      0123456789012345678901234567890123456789
  1632.  dc.b '                                        ' ;0
  1633.  dc.b '                                        ' ;1
  1634.  dc.b '                                        ' ;2
  1635.  dc.b '                                        ' ;3
  1636.  dc.b '                                        ' ;4
  1637.  dc.b '                                        ' ;5
  1638.  dc.b '                                        ' ;6
  1639.  dc.b '                                        ' ;7
  1640.  dc.b '                                        ' ;8
  1641.  dc.b '                                        ' ;9
  1642.  dc.b '                                        ' ;0
  1643.  dc.b '                                        ' ;1
  1644.  dc.b '                                        ' ;2
  1645.  dc.b '          INSERT LEVEL DISK             ' ;3
  1646.  dc.b '                                        ' ;4
  1647.  dc.b '          PRESS MOUSE BUTTON            ' ;5
  1648.  dc.b '          WHEN DISK ACTIVITY            ' ;6
  1649.  dc.b '               FINISHES                 ' ;7
  1650.  dc.b '                                        ' ;8
  1651.  dc.b '                                        ' ;9
  1652.  dc.b '                                        ' ;0
  1653.  dc.b '                                        ' ;1
  1654.  dc.b '                                        ' ;2
  1655.  dc.b '                                        ' ;3
  1656.  dc.b '                                        ' ;4
  1657.  dc.b '                                        ' ;5
  1658.  dc.b '                                        ' ;6
  1659.  dc.b '                                        ' ;7
  1660.  dc.b '                                        ' ;8
  1661.  dc.b '                                        ' ;9
  1662.  dc.b '                                        ' ;0
  1663.  dc.b '                                        ' ;1
  1664.  
  1665. ASKFORDISK_OPTS:
  1666.  dc.w -1
  1667.  
  1668.  
  1669. ONEPLAYERMENU_TXT:
  1670. ;      0123456789012345678901234567890123456789
  1671.  dc.b '                                        ' ;0
  1672.  dc.b '                                        ' ;1
  1673.  dc.b '                                        ' ;2
  1674.  dc.b '                                        ' ;3
  1675.  dc.b '                                        ' ;4
  1676.  dc.b '                                        ' ;5
  1677.  dc.b '                                        ' ;6
  1678.  dc.b '                                        ' ;7
  1679.  dc.b '                                        ' ;8
  1680.  dc.b '                                        ' ;9
  1681.  dc.b '                                        ' ;0
  1682. CURRENTLEVELLINE:
  1683.  dc.b '           LEVEL 1 : THE GATE           ' ;1 
  1684.  dc.b '                                        ' ;2
  1685.  dc.b '                1 PLAYER                ' ;3
  1686.  dc.b '                                        ' ;4
  1687.  dc.b '               PLAY  GAME               ' ;5
  1688.  dc.b '                                        ' ;6
  1689.  dc.b '            CONTROL  OPTIONS            ' ;7
  1690.  dc.b '                                        ' ;8
  1691.  dc.b '              GAME CREDITS              ' ;9
  1692.  dc.b '                                        ' ;0
  1693.  dc.b '                PASSWORD                ' ;1
  1694.  dc.b '                                        ' ;2
  1695. PASSWORDLINE:
  1696.  dc.b '                                        ' ;3
  1697.  dc.b '                                        ' ;4
  1698.  dc.b '                                        ' ;5
  1699.  dc.b '                                        ' ;6
  1700.  dc.b '                                        ' ;7
  1701.  dc.b '                                        ' ;8
  1702.  dc.b '                                        ' ;9
  1703.  dc.b '                                        ' ;0
  1704.  dc.b '                                        ' ;1
  1705.  
  1706. ONEPLAYERMENU_OPTS:
  1707.  dc.w 16,13,8,1
  1708.  dc.w 15,15,10,1
  1709.  dc.w 12,17,16,1
  1710.  dc.w 14,19,12,1
  1711.  dc.w 12,23,16,1
  1712.  dc.w -1
  1713.  
  1714.  
  1715. MASTERPLAYERMENU_TXT:
  1716. ;      0123456789012345678901234567890123456789
  1717.  dc.b '                                        ' ;0
  1718.  dc.b '                                        ' ;1
  1719.  dc.b '                                        ' ;2
  1720.  dc.b '                                        ' ;3
  1721.  dc.b '                                        ' ;4
  1722.  dc.b '                                        ' ;5
  1723.  dc.b '                                        ' ;6
  1724.  dc.b '                                        ' ;7
  1725.  dc.b '                                        ' ;8
  1726.  dc.b '                                        ' ;9
  1727.  dc.b '                                        ' ;0
  1728.  dc.b '                                        ' ;1
  1729.  dc.b '            2 PLAYER  MASTER            ' ;2
  1730.  dc.b '                                        ' ;3
  1731. CURRENTLEVELLINEM:
  1732.  dc.b '           LEVEL 1 : THE GATE           ' ;4 
  1733.  dc.b '                                        ' ;5
  1734.  dc.b '               PLAY  GAME               ' ;6
  1735.  dc.b '                                        ' ;7
  1736.  dc.b '            CONTROL  OPTIONS            ' ;8
  1737.  dc.b '                                        ' ;9
  1738.  dc.b '                                        ' ;0
  1739.  dc.b '                                        ' ;1
  1740.  dc.b '                                        ' ;2
  1741.  dc.b '                                        ' ;3
  1742.  dc.b '                                        ' ;4
  1743.  dc.b '                                        ' ;5
  1744.  dc.b '                                        ' ;6
  1745.  dc.b '                                        ' ;7
  1746.  dc.b '                                        ' ;8
  1747.  dc.b '                                        ' ;9
  1748.  dc.b '                                        ' ;0
  1749.  dc.b '                                        ' ;1
  1750.  
  1751. MASTERPLAYERMENU_OPTS:
  1752.  dc.w 12,12,16,1
  1753.  dc.w 6,14,28,1
  1754.  dc.w 15,16,10,1
  1755.  dc.w 12,18,16,1
  1756.  dc.w -1
  1757.  
  1758. SLAVEPLAYERMENU_TXT:
  1759. ;      0123456789012345678901234567890123456789
  1760.  dc.b '                                        ' ;0
  1761.  dc.b '                                        ' ;1
  1762.  dc.b '                                        ' ;2
  1763.  dc.b '                                        ' ;3
  1764.  dc.b '                                        ' ;4
  1765.  dc.b '                                        ' ;5
  1766.  dc.b '                                        ' ;6
  1767.  dc.b '                                        ' ;7
  1768.  dc.b '                                        ' ;8
  1769.  dc.b '                                        ' ;9
  1770.  dc.b '                                        ' ;9
  1771.  dc.b '                                        ' ;1
  1772.  dc.b '             2 PLAYER SLAVE             ' ;4
  1773.  dc.b '                                        ' ;3
  1774.  dc.b '               PLAY  GAME               ' ;2
  1775.  dc.b '                                        ' ;5
  1776.  dc.b '            CONTROL  OPTIONS            ' ;0
  1777.  dc.b '                                        ' ;1
  1778.  dc.b '                                        ' ;3
  1779.  dc.b '                                        ' ;7
  1780.  dc.b '                                        ' ;7
  1781.  dc.b '                                        ' ;3
  1782.  dc.b '                                        ' ;3
  1783.  dc.b '                                        ' ;3
  1784.  dc.b '                                        ' ;4
  1785.  dc.b '                                        ' ;5
  1786.  dc.b '                                        ' ;6
  1787.  dc.b '                                        ' ;7
  1788.  dc.b '                                        ' ;9
  1789.  dc.b '                                        ' ;9
  1790.  dc.b '                                        ' ;9
  1791.  dc.b '                                        ' ;9
  1792.  
  1793.  
  1794. PROTMENU_TXT:
  1795. ;      0123456789012345678901234567890123456789
  1796.  dc.b '                                        ' ;0
  1797.  dc.b '                                        ' ;1
  1798.  dc.b '                                        ' ;2
  1799.  dc.b '                                        ' ;3
  1800.  dc.b '                                        ' ;4
  1801.  dc.b '                                        ' ;5
  1802.  dc.b '                                        ' ;6
  1803.  dc.b '                                        ' ;7
  1804.  dc.b '                                        ' ;8
  1805.  dc.b '                                        ' ;9
  1806.  dc.b '                                        ' ;0
  1807.  dc.b '                                        ' ;1
  1808.  dc.b ' TYPE IN THREE DIGIT CODE FROM MANUAL : ' ;2
  1809.  dc.b '                                        ' ;3
  1810. PROTLINE:
  1811.  dc.b '        TABLE 00 ROW 00 COLUMN 00       ' ;4
  1812.  dc.b '                                        ' ;5
  1813.  dc.b '                                        ' ;6
  1814.  dc.b '                                        ' ;7
  1815.  dc.b '                                        ' ;8
  1816.  dc.b '                                        ' ;9
  1817.  dc.b '                                        ' ;0
  1818.  dc.b '                                        ' ;1
  1819.  dc.b '                                        ' ;2
  1820.  dc.b '                                        ' ;3
  1821.  dc.b '                                        ' ;4
  1822.  dc.b '                                        ' ;5
  1823.  dc.b '                                        ' ;6
  1824.  dc.b '                                        ' ;7
  1825.  dc.b '                                        ' ;9
  1826.  dc.b '                                        ' ;0
  1827.  dc.b '                                        ' ;1
  1828.  
  1829.  
  1830.  
  1831. SLAVEPLAYERMENU_OPTS:
  1832.  dc.w 12,12,16,1
  1833.  dc.w 15,14,10,1
  1834.  dc.w 12,16,16,1
  1835.  dc.w -1
  1836.  
  1837.  
  1838. PLAYER_OPTS:
  1839. ;      0123456789012345678901234567890123456789
  1840.  dc.b '                 1 PLAYER               '
  1841.  dc.b '             2  PLAYER MASTER           '
  1842.  dc.b '              2 PLAYER SLAVE            '
  1843.  
  1844. LEVEL_OPTS:
  1845. ;      0123456789012345678901234567890123456789
  1846.  dc.b '      LEVEL  1 :          THE GATE      '
  1847.  dc.b '      LEVEL  2 :       STORAGE BAY      '
  1848.  dc.b '      LEVEL  3 :     SEWER NETWORK      '
  1849.  dc.b '      LEVEL  4 :     THE COURTYARD      '
  1850.  dc.b '      LEVEL  5 :      SYSTEM PURGE      '
  1851.  dc.b '      LEVEL  6 :         THE MINES      '
  1852.  dc.b '      LEVEL  7 :       THE FURNACE      '
  1853.  dc.b '      LEVEL  8 :  TEST ARENA GAMMA      '
  1854.  dc.b '      LEVEL  9 :      SURFACE ZONE      '
  1855.  dc.b '      LEVEL 10 :     TRAINING AREA      '
  1856.  dc.b '      LEVEL 11 :       ADMIN BLOCK      '
  1857.  dc.b '      LEVEL 12 :           THE PIT      '
  1858.  dc.b '      LEVEL 13 :            STRATA      '
  1859.  dc.b '      LEVEL 14 :      REACTOR CORE      '
  1860.  dc.b '      LEVEL 15 :     COOLING TOWER      '
  1861.  dc.b '      LEVEL 16 :    COMMAND CENTRE      '
  1862.  
  1863. CONTROL_TXT:
  1864. ;      0123456789012345678901234567890123456789
  1865.  dc.b '                                        ' ;0
  1866.  dc.b '                                        ' ;1
  1867.  dc.b '                                        ' ;2
  1868.  dc.b '                                        ' ;3
  1869.  dc.b '            DEFINE  CONTROLS            ' ;4
  1870.  dc.b '                                        ' ;5
  1871. KEY_LINES:
  1872.  dc.b '     TURN LEFT                  LCK     ' ;6
  1873.  dc.b '     TURN RIGHT                 RCK     ' ;7
  1874.  dc.b '     FORWARDS                   UCK     ' ;8
  1875.  dc.b '     BACKWARDS                  DCK     ' ;9
  1876.  dc.b '     FIRE                       RAL     ' ;0
  1877.  dc.b '     OPERATE DOOR/LIFT/SWITCH   SPC     ' ;1
  1878.  dc.b '     RUN                        RSH     ' ;2
  1879.  dc.b '     FORCE SIDESTEP             RAM     ' ;3
  1880.  dc.b '     SIDESTEP LEFT               .      ' ;4
  1881.  dc.b '     SIDESTEP RIGHT              /      ' ;5
  1882.  dc.b '     DUCK                        D      ' ;6
  1883.  dc.b '     LOOK BEHIND                 L      ' ;7
  1884.  dc.b '                                        ' ;8
  1885.  dc.b '             OTHER CONTROLS             ' ;9
  1886.  dc.b '                                        ' ;0
  1887.  dc.b ' PULSE RIFLE      1  PAUSE            P ' ;1
  1888.  dc.b ' SHOTGUN          2  QUIT           ESC ' ;2
  1889.  dc.b ' PLASMA GUN       3  MOUSE CONTROL    M ' ;3
  1890.  dc.b ' GRENADE LAUNCHER 4  JOYSTICK CONTROL J ' ;4
  1891.  dc.b ' ROCKET LAUNCHER  5  KEYBOARD CONTROL K ' ;5
  1892.  dc.b '                                        ' ;6
  1893.  dc.b '               MAIN  MENU               ' ;7
  1894.  dc.b '                                        ' ;8
  1895.  dc.b '                                        ' ;9
  1896.  dc.b '                                        ' ;0
  1897.  dc.b '                                        ' ;1
  1898.  
  1899. CONTROL_OPTS:
  1900.  dc.w 5,6,30,1
  1901.  dc.w 5,7,30,1
  1902.  dc.w 5,8,30,1
  1903.  dc.w 5,9,30,1
  1904.  dc.w 5,10,30,1
  1905.  dc.w 5,11,30,1
  1906.  dc.w 5,12,30,1
  1907.  dc.w 5,13,30,1
  1908.  dc.w 5,14,30,1
  1909.  dc.w 5,15,30,1
  1910.  dc.w 5,16,30,1
  1911.  dc.w 5,17,30,1
  1912.  dc.w 15,27,10,1
  1913.  dc.w -1
  1914.  
  1915. PLOPT: dc.w 0
  1916.  
  1917. INSTRUCTIONS_TXT:
  1918. ;      0123456789012345678901234567890123456789
  1919.  dc.b 'Main controls:                          ' ;1
  1920.  dc.b '                                        ' ;2
  1921.  dc.b 'Curs Keys = Forward / Backward          ' ;3
  1922.  dc.b '            Turn left / right           ' ;4
  1923.  dc.b '          Right Alt = Fire              ' ;5
  1924.  dc.b '        Right Shift = Run               ' ;6
  1925.  dc.b '                  > = Slide Left        ' ;7
  1926.  dc.b '                  ? = Slide Right       ' ;8
  1927.  dc.b '              SPACE = Operate Door/Lift ' ;9
  1928.  dc.b '                  D = Duck              ' ;0
  1929.  dc.b '                  J = Joystick Control  ' ;1
  1930.  dc.b '                  K = Keyboard Control  ' ;2
  1931.  dc.b '                                        ' ;3
  1932.  dc.b '              1,2,3 = Select weapon     ' ;4
  1933.  dc.b '              ENTER = Toggle screen size' ;5
  1934.  dc.b '                ESC = Quit              ' ;6
  1935.  dc.b '                                        ' ;7
  1936.  dc.b '                                        ' ;8
  1937.  dc.b 'The one player game has no objective and' ;9
  1938.  dc.b 'the only way to finish is to die or quit' ;0
  1939.  dc.b '                                        ' ;1
  1940.  dc.b 'The two-player game is supposed to be a ' ;2
  1941.  dc.b 'fight to the death but will probably be ' ;3
  1942.  dc.b 'a fight-till-we-find-the-rocket-launcher' ;4
  1943.  dc.b 'then-blow-ourselves-up type game.       ' ;5
  1944.  dc.b '                                        ' ;6
  1945.  dc.b 'LOOK OUT FOR TELEPORTERS: They usually  ' ;7
  1946.  dc.b 'have glowing red walls and overhead     ' ;8
  1947.  dc.b 'lights. Useful for getting behind your  ' ;9
  1948.  dc.b ' opponent!                              ' ;0
  1949.  dc.b '  Just a taster of what is to come....  ' ;1
  1950.  dc.b '                                        ' ;0
  1951.  
  1952. INSTRUCTIONS_OPTS:
  1953.  dc.w 0,0,0,1
  1954.  dc.w -1
  1955.  
  1956. CREDITMENU_TXT:
  1957.  
  1958. ;      0123456789012345678901234567890123456789
  1959.  dc.b '    Programming, Game Code, Graphics    ' ;0
  1960.  dc.b '         Game Design and Manual         ' ;1
  1961.  dc.b '            Andrew Clitheroe            ' ;2
  1962.  dc.b '                                        ' ;3
  1963.  dc.b '             Alien Graphics             ' ;4
  1964.  dc.b '             Michael  Green             ' ;5
  1965.  dc.b '                                        ' ;6
  1966.  dc.b '           3D Object Designer           ' ;7
  1967.  dc.b '            Charles Blessing            ' ;8
  1968.  dc.b '                                        ' ;9
  1969.  dc.b '              Level Design              ' ;0
  1970.  dc.b 'Michael Green  Ben Chanter   Jackie Lang' ;1
  1971.  dc.b '     Kai Barrett Charles Blessing       ' ;2
  1972.  dc.b '                                        ' ;3
  1973.  dc.b '           Creative  Director           ' ;4
  1974.  dc.b '              Martyn Brown              ' ;5
  1975.  dc.b '                                        ' ;6
  1976.  dc.b '       Project Manager and Manual       ' ;7
  1977.  dc.b "            Martin O'Donnell            " ;8
  1978.  dc.b '                                        ' ;9
  1979.  dc.b '              Music + SFX               ' ;0
  1980.  dc.b '              Bjorn Lynne               ' ;1
  1981.  dc.b '                                        ' ;2
  1982.  dc.b '      Cover Illustration and Logo       ' ;3
  1983.  dc.b '             Kevin Jenkins              ' ;4
  1984.  dc.b '                                        ' ;5
  1985.  dc.b '      Packaging and Manual Design       ' ;6
  1986.  dc.b '               Paul Sharp               ' ;7
  1987.  dc.b '                                        ' ;8
  1988.  dc.b '             QA and Playtest            ' ;9
  1989.  dc.b '           Phil and The Wolves          ' ;0
  1990.  dc.b '                                        ' ;1
  1991.  
  1992.  dc.b '    Serial Link and 3D Object Editor:   ' ;4
  1993.  dc.b '                   by                   ' ;5
  1994.  dc.b '            Charles Blessing            ' ;6
  1995.  dc.b '                                        ' ;7
  1996.  dc.b '                Graphics:               ' ;8
  1997.  dc.b '                   by                   ' ;9
  1998.  dc.b '              Mike  Oakley              ' ;0
  1999.  dc.b '                                        ' ;1
  2000.  dc.b '             Title  Picture             ' ;2
  2001.  dc.b '                   by                   ' ;3
  2002.  dc.b '               Mike Green               ' ;4
  2003.  dc.b '                                        ' ;5
  2004.  dc.b ' Inspiration, incentive, moral support, ' ;6
  2005.  dc.b '     level design and plenty of tea     ' ;7
  2006.  dc.b '         generously supplied by         ' ;8
  2007.  dc.b '                                        ' ;9
  2008.  dc.b '              Jackie  Lang              ' ;0
  2009.  dc.b '                                        ' ;1
  2010.  dc.b '    Music for the last demo composed    ' ;2
  2011.  dc.b '       by the inexpressibly evil:       ' ;3
  2012.  dc.b '                                        ' ;8
  2013.  dc.b '            *BAD* BEN CHANTER           ' ;9
  2014.  dc.b '                                        ' ;0
  2015.  dc.b '    Sadly no room for music this time   ' ;1
  2016.  dc.b '                                        ' ;7
  2017.  dc.b '                                        ' ;7
  2018.  
  2019. CREDITMENU_OPTS:
  2020.  dc.w 0,0,1,1
  2021.  dc.w -1
  2022.  
  2023.  
  2024. ;      0123456789012345678901234567890123456789
  2025.  dc.b '                                        ' ;0
  2026.  dc.b '                                        ' ;1
  2027.  dc.b '                                        ' ;2
  2028.  dc.b '                                        ' ;3
  2029.  dc.b '                                        ' ;4
  2030.  dc.b '                                        ' ;5
  2031.  dc.b '                                        ' ;6
  2032.  dc.b '                                        ' ;7
  2033.  dc.b '                                        ' ;8
  2034.  dc.b '                                        ' ;9
  2035.  dc.b '                                        ' ;0
  2036.  dc.b '                                        ' ;1
  2037.  dc.b '                                        ' ;2
  2038.  dc.b '                                        ' ;3
  2039.  dc.b '                                        ' ;4
  2040.  dc.b '                                        ' ;5
  2041.  dc.b '                                        ' ;6
  2042.  dc.b '                                        ' ;7
  2043.  dc.b '                                        ' ;8
  2044.  dc.b '                                        ' ;9
  2045.  dc.b '                                        ' ;0
  2046.  dc.b '                                        ' ;1
  2047.  dc.b '                                        ' ;2
  2048.  dc.b '                                        ' ;3
  2049.  dc.b '                                        ' ;4
  2050.  dc.b '                                        ' ;5
  2051.  dc.b '                                        ' ;6
  2052.  dc.b '                                        ' ;7
  2053.  dc.b '                                        ' ;8
  2054.  dc.b '                                        ' ;9
  2055.  dc.b '                                        ' ;0
  2056.  dc.b '                                        ' ;1
  2057.  
  2058.  
  2059. ********************************************************
  2060.  
  2061. PUTIN32:
  2062.  move.w #31,d2
  2063. p32loop:
  2064.  moveq #0,d5
  2065.  move.l (a0)+,d3
  2066.  move.w d3,d4
  2067.  swap d3
  2068.  move.b d4,d5
  2069.  lsr.w #8,d4
  2070.  
  2071.  muls d0,d3
  2072.  muls d0,d4
  2073.  muls d0,d5
  2074.  lsr.l #8,d3
  2075.  lsr.l #8,d4
  2076.  lsr.l #8,d5
  2077.  move.w d3,d6
  2078.  swap d3
  2079.  move.w d6,d3
  2080.  move.w d4,d6
  2081.  swap d4
  2082.  move.w d6,d4
  2083.  move.w d5,d6
  2084.  swap d5
  2085.  move.w d6,d5
  2086.  and.w #%11110000,d3
  2087.  and.w #%11110000,d4
  2088.  and.w #%11110000,d5
  2089.  lsl.w #4,d3
  2090.  add.w d4,d3
  2091.  lsr.w #4,d5
  2092.  add.w d5,d3
  2093.  move.w d3,2(a1)
  2094.  swap d3
  2095.  swap d4
  2096.  swap d5
  2097.  and.w #%1111,d3
  2098.  and.w #%1111,d4
  2099.  and.w #%1111,d5
  2100.  lsl.w #8,d3
  2101.  lsl.w #4,d4
  2102.  add.w d4,d3
  2103.  add.w d5,d3
  2104.  move.w d3,2+(132*4)(a1)
  2105.  addq #4,a1
  2106.  dbra d2,p32loop
  2107.  
  2108.  
  2109.  rts
  2110.  
  2111. **************************************
  2112.  
  2113. FADEAMOUNT: dc.w 0
  2114. FADEVAL: dc.w 0
  2115.  
  2116. FADEUPTITLE:
  2117.  
  2118.  move.w FADEVAL,d0
  2119.  move.w FADEAMOUNT,d1
  2120. fadeuploop:
  2121.  
  2122.  move.l #TITLEPAL,a0
  2123.  move.l #TITLEPALCOP,a1
  2124.  
  2125. wvb:
  2126.  btst #5,$dff000+intreqrl
  2127.  beq.s wvb
  2128.  move.w #$20,$dff000+intreq 
  2129.  
  2130.  bsr PUTIN32
  2131.  add.w #4,a1
  2132.  bsr PUTIN32
  2133.  add.w #4,a1
  2134.  bsr PUTIN32
  2135.  add.w #4,a1
  2136.  bsr PUTIN32
  2137.  
  2138.  addq.w #4,d0
  2139.  dbra d1,fadeuploop
  2140.  
  2141.  subq #4,d0
  2142.  move.w d0,FADEVAL
  2143.  
  2144.  rts
  2145.  
  2146. CLEARTITLEPAL:
  2147.  PRSDP
  2148.  move.l #TITLEPALCOP,a0
  2149.  move.w #7,d1
  2150. clrpal:
  2151.  move.w #31,d0
  2152. clr32
  2153.  move.w #0,2(a0)
  2154.  addq #4,a0
  2155.  dbra d0,clr32
  2156.  addq #4,a0
  2157.  dbra d1,clrpal
  2158.  PRSDQ
  2159.  rts
  2160.  
  2161. FADEDOWNTITLE:
  2162.  
  2163.  move.w FADEVAL,d0
  2164.  move.w FADEAMOUNT,d1
  2165. fadedownloop:
  2166.  
  2167.  move.l #TITLEPAL,a0
  2168.  move.l #TITLEPALCOP,a1
  2169.  
  2170. .wvb:
  2171.  btst #5,$dff000+intreqrl
  2172.  beq.s .wvb
  2173.  move.w #$20,$dff000+intreq 
  2174.  
  2175.  bsr PUTIN32
  2176.  add.w #4,a1
  2177.  bsr PUTIN32
  2178.  add.w #4,a1
  2179.  bsr PUTIN32
  2180.  add.w #4,a1
  2181.  bsr PUTIN32
  2182.  
  2183.  subq.w #4,d0
  2184.  dbra d1,fadedownloop
  2185.  
  2186.  addq #4,d0
  2187.  move.w d0,FADEVAL
  2188.  
  2189.  rts
  2190.  
  2191. LOADTITLESCRN2:
  2192.  
  2193.  move.l #TITLESCRNNAME2,d1
  2194.  move.l #1005,d2
  2195.  move.l doslib,a6
  2196.  jsr -30(a6)
  2197.  move.l d0,handle
  2198.  move.l d0,d1
  2199.  move.l doslib,a6
  2200.  move.l TITLESCRNADDR,d2
  2201.  move.l #10240*7,d3
  2202.  jsr -42(a6)
  2203.  move.l doslib,a6
  2204.  move.l handle,d1
  2205.  jsr -36(a6)
  2206.  
  2207.  rts
  2208.  
  2209.  
  2210. GETTITLEMEM:
  2211.  move.l #2,d1
  2212.  move.l #10240*7,d0
  2213.  move.l 4.w,a6
  2214.  jsr -198(a6)
  2215.  move.l d0,TITLESCRNADDR
  2216.  
  2217.  move.l #$dff000-$2cdfe4,a4
  2218.  
  2219.  move.l #2,d1
  2220.  move.l #258*16*5,d0
  2221.  move.l 4.w,a6
  2222.  jsr -198(a6)
  2223.  move.l d0,OPTSPRADDR
  2224.  
  2225.  rts
  2226.  
  2227. ProtChkJLev1:
  2228.  
  2229. PROTSETUP:
  2230.  incbin "ab3:includes/protsetupenc"
  2231.  
  2232. ; Need to: Decode protection calling
  2233. ; routine
  2234. ; use null values to call it and erase
  2235. ; it from memory
  2236. ; erase this routine and return.
  2237.  
  2238. ; include "ab3:source/protsetup"
  2239.  
  2240.  
  2241. RELEASETITLEMEM:
  2242.  move.l TITLESCRNADDR,d1
  2243.  move.l d1,a1
  2244.  move.l #10240*7,d0
  2245.  move.l 4.w,a6
  2246.  jsr -210(a6)
  2247.  
  2248.  move.l OPTSPRADDR,d1
  2249.  move.l d1,a1
  2250.  move.l #258*80,d0
  2251.  move.l 4.w,a6
  2252.  jsr -210(a6)
  2253.  rts
  2254.  
  2255.  
  2256. PROTCALLENC:
  2257. ; incbin "ab3:source/protcallenc.bin
  2258.  
  2259. ; one pass, all instructions executed.
  2260. ; must call protection routine,store
  2261. ; value somewhere, call ask routine,
  2262. ; compare returned value, if correct
  2263. ; set up all values, then return.
  2264.  
  2265.  include "ab3:source/protcallenc"
  2266.  
  2267. ENDPROT:
  2268.  
  2269. LOADTITLESCRN:
  2270.  
  2271.  move.l #TITLESCRNNAME,d1
  2272.  move.l #1005,d2
  2273.  move.l doslib,a6
  2274.  jsr -30(a6)
  2275.  move.l d0,handle
  2276.  move.l d0,d1
  2277.  move.l doslib,a6
  2278.  move.l TITLESCRNADDR,d2
  2279.  move.l #10240*7,d3
  2280.  jsr -42(a6)
  2281.  move.l doslib,a6
  2282.  move.l handle,d1
  2283.  jsr -36(a6)
  2284.  
  2285.  rts
  2286.  
  2287. RVAL2: dc.w 0
  2288.  
  2289. SETUPTITLESCRN:
  2290.  
  2291.  PRSDR
  2292.  move.l #OPTCOP,a0
  2293.  move.l #rain,a1
  2294.  move.w #255,d0
  2295. putinrain:
  2296.  move.w (a1)+,d1
  2297.  move.w d1,6(a0)
  2298.  move.w d1,6+4(a0)
  2299.  move.w d1,6+8(a0)
  2300.  move.w d1,6+12(a0)
  2301.  add.w #4*14,a0
  2302.  
  2303.  dbra d0,putinrain
  2304.  
  2305. ; Put addr into copper.
  2306.  move.l OPTSPRADDR,d0
  2307.  move.w d0,tsp0l
  2308.  swap d0
  2309.  move.w d0,tsp0h
  2310.  swap d0
  2311.  add.l #258*16,d0
  2312.  move.w d0,tsp1l
  2313.  swap d0
  2314.  move.w d0,tsp1h
  2315.  swap d0
  2316.  add.l #258*16,d0
  2317.  move.w d0,tsp2l
  2318.  swap d0
  2319.  move.w d0,tsp2h
  2320.  swap d0
  2321.  add.l #258*16,d0
  2322.  move.w d0,tsp3l
  2323.  swap d0
  2324.  move.w d0,tsp3h
  2325.  swap d0
  2326.  add.l #258*16,d0
  2327.  move.w d0,tsp4l
  2328.  swap d0
  2329.  move.w d0,tsp4h
  2330.  
  2331.  move.l #nullspr,d0
  2332.  move.w d0,tsp5l
  2333.  move.w d0,tsp6l
  2334.  move.w d0,tsp7l
  2335.  swap d0
  2336.  move.w d0,tsp5h
  2337.  move.w d0,tsp6h
  2338.  move.w d0,tsp7h 
  2339.  
  2340.  move.l TITLESCRNADDR,d0
  2341.  move.w d0,ts1l
  2342.  swap d0
  2343.  move.w d0,ts1h
  2344.  swap d0
  2345.  add.l #10240,d0
  2346.  move.w d0,ts2l
  2347.  swap d0
  2348.  move.w d0,ts2h
  2349.  swap d0
  2350.  add.l #10240,d0
  2351.  move.w d0,ts3l
  2352.  swap d0
  2353.  move.w d0,ts3h
  2354.  swap d0
  2355.  add.l #10240,d0
  2356.  move.w d0,ts4l
  2357.  swap d0
  2358.  move.w d0,ts4h
  2359.  swap d0
  2360.  add.l #10240,d0
  2361.  move.w d0,ts5l
  2362.  swap d0
  2363.  move.w d0,ts5h
  2364.  swap d0
  2365.  add.l #10240,d0
  2366.  move.w d0,ts6l
  2367.  swap d0
  2368.  move.w d0,ts6h
  2369.  swap d0
  2370.  add.l #10240,d0
  2371.  move.w d0,ts7l
  2372.  swap d0
  2373.  move.w d0,ts7h
  2374.  rts 
  2375.  
  2376. RVAL1: dc.w 0
  2377.  
  2378. DummyAdds:
  2379.  dc.l dummy-78935450
  2380.  dc.l dummy-78935450
  2381.  dc.l dummy-78935450
  2382.  dc.l dummy-78935450
  2383.  dc.l dummy-78935450
  2384.  dc.l dummy-78935450
  2385.  dc.l dummy-78935450
  2386.  dc.l dummy-78935450
  2387.  dc.l dummy-78935450
  2388.  dc.l dummy-78935450
  2389.  
  2390. dummycall
  2391.  dc.w $4e75-123
  2392.  
  2393. protspace: ds.l 200
  2394.  
  2395.  include "ab3:source/LEVEL_BLURB"
  2396.  
  2397. font:
  2398.  incbin "OptFont"
  2399.  
  2400. rain: incbin "optcop"
  2401.